home *** CD-ROM | disk | FTP | other *** search
/ CD World Haziran 1997 / CD World Haziran 1997.iso / Explorer Yardimcilari / PiXCL Tools / Colbrfon.px_ / Colbrfon.px
Encoding:
PiXCL source  |  1996-05-13  |  16.4 KB  |  707 lines
  1. {-----------------------------COLBRFONT.pxl---------------------------------
  2.  This program draws a variety of graphic shapes. It illustrates how you 
  3.  can control the background color, the brush color and fill pattern, 
  4.  they line pattern and color, as well as the font style and color. 
  5. ------------------------------------------------------------------------}
  6.  
  7. {Check Windows Version to Establish Font }
  8. WinVersion(Major_No,Minor_No,Build)
  9. WinGetActive(Win$)
  10. If Major_No>3 then  Win_Fnt$="Roman" |  Ver=0 | Goto Init
  11. If Major_No<3 then  Win_Fnt$="Roman" |  Ver=0 | Goto Init
  12. If Minor_No=0 then  Win_Fnt$="Roman" |  Ver=0 | Goto Init
  13.  Win_Fnt$="Times New Roman"
  14.  Ver=1
  15.  
  16. { variable}
  17. Init:
  18.     Delay = 2000
  19.    If Ver=1 Then  Font_C$="&Courier New" |  Font_T$="Ti&mes New Roman"
  20.    If Ver=0 Then  Font_C$="&Courier" |  Font_T$="Tms Rmn"
  21.  
  22. {Maximize the window and set its caption}
  23.    UseCoordinates(PIXEL)
  24.  
  25.    WinGetActive(Windowname$)
  26.    WinTitle(Windowname$,"PiXCL 4.0 Colors, Brushes and Fonts")
  27.    WinLocate("PiXCL 4.0 Colors, Brushes and Fonts",200,100,780,500,result)
  28.    UseCoordinates(METRIC)
  29. {Initialize variables}
  30.     Br_Red=0      {Blue brush}
  31.     Br_Green=0
  32.     Br_Blue=255
  33.     Curr_BrushC$="&Blue   "
  34.     Prev_BrushC$="&Blue   "
  35.     Br_Type=0     {Solid}
  36.     Curr_BrushP$="&Solid"
  37.     Prev_BrushP$="&Solid"
  38.  
  39.     Pen_Red=0     {Black pen}
  40.     Pen_Green=0
  41.     Pen_Blue=0
  42.     Curr_PenC$="Blac&k  "
  43.     Prev_PenC$="Blac&k  "
  44.     Pen_Type=0    {Solid}
  45.     Curr_PenP$="&Solid narrow"
  46.     Prev_PenP$="&Solid narrow"
  47.    
  48.     Font_Red=0    {Black font}
  49.     Font_Green=0
  50.     Font_Blue=0
  51.     Curr_FontC$="Blac&k "
  52.     Prev_FontC$="Blac&k "
  53.     Font_Type=9   {System font}
  54.     Curr_Font$="&System"
  55.     Prev_Font$="&System"
  56.  
  57.     B_Red=255     {White background}
  58.     B_Green=255
  59.     B_Blue=255
  60.     Curr_BackC$="&White"
  61.     Prev_BackC$="&White"
  62.     B_Type=1      {Transparent}
  63.  
  64. { Remove Menu Item }
  65.    InfoMenu(REMOVE)
  66. { up the menu}
  67.   WaitInput(100)    
  68.   SetMenu("&File",IGNORE,
  69.       "E&xit!", Bye,
  70.       ENDPOPUP,
  71.       "&Brush",IGNORE,
  72.         "&Solid",    Brush_Solid,
  73.         "Diagonal &Up", Brush_Diagonalup,
  74.         "Diagonal &Down",  Brush_Diagonaldown,
  75.         "Dia&gonal Cross", Brush_Diagonalcross,
  76.         "&Horizontal",  Brush_Horizontal,
  77.         "&Vertical",    Brush_Vertical,
  78.         "&Cross",    Brush_Cross,
  79.         "&Null   ",     Brush_Null,
  80.         SEPARATOR,
  81.         "&White   ",    Brush_White,
  82.         "&Gray   ",     Brush_Gray,
  83.         "&Red   ",      Brush_Red,
  84.         "&Yellow   ",   Brush_Yel,
  85.         "Gree&n   ",    Brush_Grn,
  86.         "&Light Blue   ", Brush_Ltblu,
  87.         "&Blue   ",     Brush_Blue,
  88.         "&Pink   ",     Brush_Pink,
  89.         "Blac&k   ",    Brush_Black,
  90.         ENDPOPUP,
  91.       "&Pen",IGNORE,
  92.         "&Solid narrow", Pen_Solid_Narrow,
  93.         "Solid &thick", Pen_Solid_Thick,
  94.         "&Dash",     Pen_Dash,
  95.         "D&ot",      Pen_Dot,
  96.         "Da&sh dot", Pen_Dashdot,
  97.         "Dash do&t dot", Pen_Dashdotdot,
  98.         "&Null",     Pen_Null,
  99.         SEPARATOR,
  100.         "&White  ",    Pen_White,
  101.         "&Gray  ",     Pen_Gray,
  102.         "&Red  ",      Pen_Red,
  103.         "&Yellow  ",   Pen_Yel,
  104.         "Gree&n  ",    Pen_Grn,
  105.         "&Light Blue  ",  Pen_Ltblu,
  106.         "&Blue  ",     Pen_Blue,
  107.         "&Pink  ",     Pen_Pink,
  108.         "Blac&k  ",    Pen_Black,
  109.         ENDPOPUP,
  110.       "&Font",IGNORE,
  111.         "&Terminal", Font_Terminal,
  112.         "R&oman",    Font_Roman,
  113.         "&Script",   Font_Script,
  114.         "&Modern",   Font_Modern,
  115.         "&Helv",     Font_Helv,
  116.         Font_C$,  Font_Courier,
  117.         Font_T$,  Font_TmsRmn,
  118.         "S&ymbol",   Font_Symbol,
  119.         "&System",   Font_System,
  120.         SEPARATOR,
  121.         "&White ",   Font_White,
  122.         "&Gray ",    Font_Gray,
  123.         "&Red ",     Font_Red,
  124.         "&Yellow ",  Font_Yel,
  125.         "Gree&n ",   Font_Grn,
  126.         "&Light Blue ",  Font_Ltblu,
  127.         "&Blue ",    Font_Blue,
  128.         "&Pink ",    Font_Pink,
  129.         "Blac&k ",   Font_Black,
  130.         ENDPOPUP,
  131.       "Back&ground",IGNORE,
  132.         "&White",    Back_Col_White,
  133.         "&Gray",     Back_Col_Gray,
  134.         "&Red",      Back_Col_Red,
  135.         "&Yellow",      Back_Col_Yel,
  136.         "Gree&n",    Back_Col_Grn,
  137.         "&Light Blue",  Back_Col_Ltblu,
  138.         "&Blue",     Back_Col_Blue,
  139.         "&Pink",     Back_Col_Pink,
  140.         "Blac&k",    Back_Col_Black,
  141.         ENDPOPUP,
  142.       "&Help",Help,
  143.       ENDPOPUP,
  144.       "&About",About,
  145.       ENDPOPUP)
  146.  
  147.    ChangeMenuItem(Curr_BrushC$,CHECK,temp)
  148.    ChangeMenuItem(Curr_BrushP$,CHECK,temp)
  149.    ChangeMenuItem(Curr_PenC$,CHECK,temp)
  150.    ChangeMenuItem(Curr_PenP$,CHECK,temp)
  151.    ChangeMenuItem(Curr_Font$,CHECK,temp)
  152.    ChangeMenuItem(Curr_FontC$,CHECK,temp)
  153.    ChangeMenuItem(Curr_BackC$,CHECK,temp)
  154.  
  155. { the drawing tools}
  156. _Br:     { the brush}
  157. If Br_Type = 0 Then UseBrush(SOLID,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  158. If Br_Type = 1 Then UseBrush(DIAGONALUP,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  159. If Br_Type = 2 Then UseBrush(DIAGONALDOWN,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  160. If Br_Type = 3 Then UseBrush(DIAGONALCROSS,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  161. If Br_Type = 4 Then UseBrush(HORIZONTAL,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  162. If Br_Type = 5 Then UseBrush(VERTICAL,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  163. If Br_Type = 6 Then UseBrush(CROSS,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  164.         {Else} UseBrush(NULL,Br_Red,Br_Green,Br_Blue)
  165.  
  166. _Pen: { the pen}
  167. If Pen_Type = 0 Then UsePen(SOLID,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  168. If Pen_Type = 1 Then UsePen(SOLID,3,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  169. If Pen_Type = 2 Then UsePen(DASH,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  170. If Pen_Type = 3 Then UsePen(DOT,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  171. If Pen_Type = 4 Then UsePen(DASHDOT,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  172. If Pen_Type = 5 Then UsePen(DASHDOTDOT,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  173.          {ELSE} UsePen(NULL,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  174.  
  175. _Font:   {Establish the font}
  176. If Font_Type = 0 Then UseFont("Terminal",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  177. If Font_Type = 1 Then UseFont("Roman",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  178. If Font_Type = 2 Then UseFont("Script",3,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  179. If Font_Type = 3 Then UseFont("Modern",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  180. If Font_Type = 4 Then UseFont("Helv",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  181. If Font_Type = 5 Then If Ver=0 Then UseFont("Courier",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  182. If Font_Type = 5 Then If Ver=1 Then UseFont("Courier New",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  183. If Font_Type = 6 Then If Ver=0 Then UseFont("Tms Rmn",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  184. If Font_Type = 6 Then If Ver=1 Then UseFont("Times New Roman",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  185. If Font_Type = 7 Then UseFont("Symbol",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw:
  186.           {ELSE} UseFont("System",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue)
  187.  
  188. Draw:
  189.    UseBackground(TRANSPARENT,B_Red,B_Green,B_Blue)
  190.    DrawBackground
  191.  
  192.    DrawPie(0,10,45,40,40,30,13,12)
  193.    DrawText(27,40,"Pie")
  194.    DrawChord(45,10,90,40,85,30,58,12)
  195.    DrawText(67,40,"Chord")
  196.    DrawArc(90,10,135,40,130,30,103,12)
  197.    DrawText(112,40,"Arc")
  198.    DrawLine(150,10,180,32)
  199.    DrawText(157,40,"Line")
  200.  
  201.    DrawEllipse(10,60,55,90)
  202.    DrawText(25,93,"Ellipse")
  203.    DrawRectangle(69,60,114,90)
  204.    DrawText(81,93,"Rectangle")
  205.    DrawRoundRectangle(128,60,173,90,6,6)
  206.    DrawText(133,93,"Round Rectangle")
  207.  
  208. Wait_for_input:
  209.    WaitInput()
  210.  
  211. Help:
  212.     MessageBox(OK,1,INFORMATION,
  213. "This sample program demonstrates the Windows GDI
  214. functions available in PiXCL 4.0. When you select
  215. any of the menu options for brushes, pens fonts
  216. and backgrounds, the client area is redrawn with 
  217. the new parameters.",
  218.     "Some Windows GDI functions.",Res)
  219.     Goto Wait_for_input
  220.  
  221. About:
  222.     AboutUser("PiXCL 4.0 Sample Program",
  223. "Colors, Brushes, Pens and Fonts", "")
  224.  
  225.     Goto Wait_for_input
  226.  
  227.  
  228. Brush_Solid:
  229.     Curr_BrushP$="&Solid"
  230.    Gosub Brush_Pattern
  231.     Br_Type = 0
  232.    Goto _Br
  233.  
  234. Brush_Diagonalup:
  235.     Curr_BrushP$="Diagonal &Up"
  236.    Gosub Brush_Pattern
  237.     Br_Type = 1
  238.    Goto _Br
  239.  
  240. Brush_Diagonaldown:
  241.     Curr_BrushP$="Diagonal &Down"
  242.    Gosub Brush_Pattern
  243.     Br_Type = 2
  244.    Goto _Br
  245.  
  246. Brush_Diagonalcross:
  247.     Curr_BrushP$="Diagonal &Cross"
  248.    Gosub Brush_Pattern
  249.     Br_Type = 3
  250.    Goto _Br
  251.  
  252. Brush_Horizontal:
  253.     Curr_BrushP$="&Horizontal"
  254.    Gosub Brush_Pattern
  255.     Br_Type = 4
  256.    Goto _Br
  257.  
  258. Brush_Vertical:
  259.     Curr_BrushP$="&Vertical"
  260.    Gosub Brush_Pattern
  261.     Br_Type = 5
  262.    Goto _Br
  263.  
  264. Brush_Cross:
  265.     Curr_BrushP$="&Cross"
  266.    Gosub Brush_Pattern
  267.     Br_Type = 6
  268.    Goto _Br
  269.  
  270. Brush_Null:
  271.     Curr_BrushP$="&Null   "
  272.    Gosub Brush_Pattern
  273.     Br_Type = 7
  274.    Goto _Br
  275.  
  276. Brush_White:
  277.     Curr_BrushC$="&White   "
  278.    Gosub Brush_Color
  279.     Br_Red = 255
  280.     Br_Green = 255
  281.     Br_Blue = 255
  282.    Goto _Br
  283.  
  284. Brush_Gray:
  285.     Curr_BrushC$="&Gray   "
  286.    Gosub Brush_Color
  287.     Br_Red = 192
  288.     Br_Green = 192
  289.     Br_Blue = 192
  290.    Goto _Br
  291.  
  292. Brush_Red:
  293.     Curr_BrushC$="&Red   "
  294.    Gosub Brush_Color
  295.     Br_Red = 255
  296.     Br_Green = 0
  297.     Br_Blue = 0
  298.    Goto _Br
  299.  
  300. Brush_Yel:
  301.     Curr_BrushC$="&Yellow   "
  302.    Gosub Brush_Color
  303.     Br_Red = 255
  304.     Br_Green = 255
  305.     Br_Blue = 0
  306.    Goto _Br
  307.  
  308. Brush_Grn:
  309.     Curr_BrushC$="Gree&n   "
  310.    Gosub Brush_Color
  311.     Br_Red = 0
  312.     Br_Green = 255
  313.     Br_Blue = 0
  314.    Goto _Br
  315.  
  316. Brush_Ltblu:
  317.     Curr_BrushC$="&Light Blue   "
  318.    Gosub Brush_Color
  319.     Br_Red = 0
  320.     Br_Green = 255
  321.     Br_Blue = 255
  322.    Goto _Br
  323.  
  324. Brush_Blue:
  325.     Curr_BrushC$="&Blue   "
  326.    Gosub Brush_Color
  327.     Br_Red = 0
  328.     Br_Green = 0
  329.     Br_Blue = 255
  330.    Goto _Br
  331.  
  332. Brush_Pink:
  333.     Curr_BrushC$="&Pink   "
  334.    Gosub Brush_Color
  335.     Br_Red = 255
  336.     Br_Green = 0
  337.     Br_Blue = 255
  338.    Goto _Br
  339.  
  340. Brush_Black:
  341.     Curr_BrushC$="Blac&k   "  
  342.    Gosub Brush_Color
  343.     Br_Red = 0
  344.     Br_Green = 0
  345.     Br_Blue = 0
  346.    Goto _Br 
  347.  
  348. Pen_Solid_Narrow:
  349.     Curr_PenP$="&Solid narrow"
  350.    Gosub Pen_Pattern
  351.     Pen_Type = 0
  352.    Goto _Pen
  353.  
  354. Pen_Solid_Thick:
  355.     Curr_PenP$="Solid &thick"
  356.    Gosub Pen_Pattern
  357.     Pen_Type = 1
  358.    Goto _Pen
  359.  
  360. Pen_Dash:
  361.     Curr_PenP$="&Dash"
  362.    Gosub Pen_Pattern
  363.     Pen_Type = 2
  364.    Goto _Pen
  365.  
  366. Pen_Dot:
  367.     Curr_PenP$="D&ot"
  368.    Gosub Pen_Pattern
  369.     Pen_Type = 3
  370.    Goto _Pen
  371.  
  372. Pen_Dashdot:
  373.     Curr_PenP$="Da&sh dot"
  374.    Gosub Pen_Pattern
  375.     Pen_Type = 4
  376.    Goto _Pen
  377.  
  378. Pen_Dashdotdot:
  379.     Curr_PenP$="Dash do&t dot"
  380.    Gosub Pen_Pattern
  381.     Pen_Type = 5
  382.    Goto _Pen
  383.  
  384. Pen_Null:
  385.     Curr_PenP$="&Null"
  386.    Gosub Pen_Pattern
  387.     Pen_Type = 6
  388.    Goto _Pen
  389.  
  390. Pen_White:
  391.     Curr_PenC$="&White  "
  392.    Gosub Pen_Color
  393.     Pen_Red = 255
  394.     Pen_Green = 255
  395.     Pen_Blue = 255
  396.    Goto _Pen
  397.  
  398. Pen_Gray:
  399.     Curr_PenC$="&Gray  "
  400.    Gosub Pen_Color
  401.     Pen_Red = 192
  402.     Pen_Green = 192
  403.     Pen_Blue = 192
  404.    Goto _Pen
  405.  
  406. Pen_Red:
  407.     Curr_PenC$="&Red  "
  408.    Gosub Pen_Color
  409.     Pen_Red = 255
  410.     Pen_Green = 0
  411.     Pen_Blue = 0
  412.    Goto _Pen
  413.  
  414. Pen_Yel:
  415.     Curr_PenC$="&Yellow  "
  416.    Gosub Pen_Color
  417.     Pen_Red = 255
  418.     Pen_Green = 255
  419.     Pen_Blue = 0
  420.    Goto _Pen
  421.  
  422. Pen_Grn:
  423.     Curr_PenC$="Gree&n  "
  424.    Gosub Pen_Color
  425.     Pen_Red = 0
  426.     Pen_Green = 255
  427.     Pen_Blue = 0
  428.    Goto _Pen
  429.  
  430. Pen_Ltblu:
  431.     Curr_PenC$="&Light Blue  "
  432.    Gosub Pen_Color
  433.     Pen_Red = 0
  434.     Pen_Green = 255
  435.     Pen_Blue = 255
  436.    Goto _Pen
  437.  
  438. Pen_Blue:
  439.     Curr_PenC$="&Blue  "
  440.    Gosub Pen_Color
  441.     Pen_Red = 0
  442.     Pen_Green = 0
  443.     Pen_Blue = 255
  444.    Goto _Pen
  445.  
  446. Pen_Pink:
  447.     Curr_PenC$="&Pink  "
  448.    Gosub Pen_Color
  449.     Pen_Red = 255
  450.     Pen_Green = 0
  451.     Pen_Blue = 255
  452.    Goto _Pen
  453.  
  454. Pen_Black:
  455.     Curr_PenC$="Blac&k  "
  456.    Gosub Pen_Color
  457.     Pen_Red = 0
  458.     Pen_Green = 0
  459.     Pen_Blue = 0
  460.    Goto _Pen
  461.  
  462. Font_Terminal:
  463.     Curr_Font$="&Terminal"
  464.    Gosub Font_Type
  465.     Font_Type = 0
  466.    Goto _Font
  467.  
  468. Font_Roman:
  469.     Curr_Font$="R&oman"
  470.    Gosub Font_Type
  471.     Font_Type = 1
  472.    Goto _Font
  473.  
  474. Font_Script:
  475.     Curr_Font$="&Script"
  476.    Gosub Font_Type
  477.     Font_Type = 2
  478.    Goto _Font
  479.  
  480. Font_Modern:
  481.     Curr_Font$="&Modern"
  482.    Gosub Font_Type
  483.     Font_Type = 3
  484.    Goto _Font
  485.  
  486. Font_Helv:
  487.     Curr_Font$="&Helv"
  488.    Gosub Font_Type
  489.     Font_Type = 4
  490.    Goto _Font
  491.  
  492. Font_Courier:
  493.    If Ver=0 Then  Curr_Font$="&Courier"
  494.    If Ver=1 Then  Curr_Font$="&Courier New"
  495.    Gosub Font_Type
  496.     Font_Type = 5
  497.    Goto _Font
  498.  
  499. Font_TmsRmn:
  500.    If Ver=0 Then  Curr_Font$="T&ms Rmn"
  501.    If Ver=1 Then  Curr_Font$="Ti&mes New Roman"
  502.    Gosub Font_Type
  503.     Font_Type = 6
  504.    Goto _Font
  505.  
  506. Font_Symbol:
  507.     Curr_Font$="S&ymbol"
  508.    Gosub Font_Type
  509.     Font_Type = 7
  510.    Goto _Font
  511.  
  512. Font_System:
  513.     Curr_Font$="&System"
  514.    Gosub Font_Type
  515.     Font_Type = 9
  516.    Goto _Font
  517.  
  518. Font_White:
  519.     Curr_FontC$="&White "
  520.    Gosub Font_Color
  521.     Font_Red = 255
  522.     Font_Green = 255
  523.     Font_Blue = 255
  524.    Goto _Font
  525.  
  526. Font_Gray:
  527.     Curr_FontC$="&Gray "
  528.    Gosub Font_Color
  529.     Font_Red = 192
  530.     Font_Green = 192
  531.     Font_Blue = 192
  532.    Goto _Font
  533.  
  534. Font_Red:
  535.     Curr_FontC$="&Red "
  536.    Gosub Font_Color
  537.     Font_Red = 255
  538.     Font_Green = 0
  539.     Font_Blue = 0
  540.    Goto _Font
  541.  
  542. Font_Yel:
  543.     Curr_FontC$="&Yellow "
  544.    Gosub Font_Color
  545.     Font_Red = 255
  546.     Font_Green = 255
  547.     Font_Blue = 0
  548.    Goto _Font
  549.  
  550. Font_Grn:
  551.     Curr_FontC$="Gree&n "
  552.    Gosub Font_Color
  553.     Font_Red = 0
  554.     Font_Green = 255
  555.     Font_Blue = 0
  556.    Goto _Font
  557.  
  558. Font_Ltblu:
  559.     Curr_FontC$="&Light Blue "
  560.    Gosub Font_Color
  561.     Font_Red = 0
  562.     Font_Green = 255
  563.     Font_Blue = 255
  564.    Goto _Font
  565.  
  566. Font_Blue:
  567.     Curr_FontC$="&Blue "
  568.    Gosub Font_Color
  569.     Font_Red = 0
  570.     Font_Green = 0
  571.     Font_Blue = 255
  572.    Goto _Font
  573.  
  574. Font_Pink:
  575.     Curr_FontC$="&Pink "
  576.    Gosub Font_Color
  577.     Font_Red = 255
  578.     Font_Green = 0
  579.     Font_Blue = 255
  580.    Goto _Font
  581.  
  582. Font_Black:
  583.     Curr_FontC$="Blac&k "
  584.    Gosub Font_Color
  585.     Font_Red = 0
  586.     Font_Green = 0
  587.     Font_Blue = 0
  588.    Goto _Font
  589.  
  590. Back_Col_White:
  591.     Curr_BackC$="&White"
  592.    Gosub Back_Color
  593.     B_Red = 255
  594.     B_Green = 255
  595.     B_Blue = 255
  596.    Goto Draw
  597.  
  598. Back_Col_Gray:
  599.     Curr_BackC$="&Gray"
  600.    Gosub Back_Color
  601.     B_Red = 192
  602.     B_Green = 192
  603.     B_Blue = 192
  604.    Goto Draw
  605.  
  606. Back_Col_Red:
  607.     Curr_BackC$="&Red"
  608.    Gosub Back_Color
  609.     B_Red = 255
  610.     B_Green = 0
  611.     B_Blue = 0
  612.    Goto Draw
  613.  
  614. Back_Col_Yel:
  615.     Curr_BackC$="&Yellow"
  616.    Gosub Back_Color
  617.     B_Red = 255
  618.     B_Green = 255
  619.     B_Blue = 0
  620.    Goto Draw
  621.  
  622. Back_Col_Grn:
  623.     Curr_BackC$="Gree&n"
  624.    Gosub Back_Color
  625.     B_Red = 0
  626.     B_Green = 255
  627.     B_Blue = 0
  628.    Goto Draw
  629.  
  630. Back_Col_Ltblu:
  631.     Curr_BackC$="&Light Blue"
  632.    Gosub Back_Color
  633.     B_Red = 0
  634.     B_Green = 255
  635.     B_Blue = 255
  636.    Goto Draw
  637.  
  638. Back_Col_Blue:
  639.     Curr_BackC$="&Blue"
  640.    Gosub Back_Color
  641.     B_Red = 0
  642.     B_Green = 0
  643.     B_Blue = 255
  644.    Goto Draw
  645.  
  646. Back_Col_Pink:
  647.     Curr_BackC$="&Pink"
  648.    Gosub Back_Color
  649.     B_Red = 255
  650.     B_Green = 0
  651.     B_Blue = 255
  652.    Goto Draw
  653.  
  654. Back_Col_Black:
  655.     Curr_BackC$="Blac&k"
  656.    Gosub Back_Color
  657.     B_Red = 0
  658.     B_Green = 0
  659.     B_Blue = 0
  660.    Goto Draw
  661.  
  662. Brush_Color:
  663.    ChangeMenuItem(Prev_BrushC$,UNCHECK,temp)
  664.    ChangeMenuItem(Curr_BrushC$,CHECK,temp)
  665.     Prev_BrushC$=Curr_BrushC$
  666.    Return
  667.  
  668. Brush_Pattern:
  669.    ChangeMenuItem(Prev_BrushP$,UNCHECK,temp)
  670.    ChangeMenuItem(Curr_BrushP$,CHECK,temp)
  671.     Prev_BrushP$=Curr_BrushP$
  672.    Return
  673.  
  674. Pen_Color:
  675.    ChangeMenuItem(Prev_PenC$,UNCHECK,temp)
  676.    ChangeMenuItem(Curr_PenC$,CHECK,temp)
  677.     Prev_PenC$=Curr_PenC$
  678.    Return
  679.  
  680. Pen_Pattern:
  681.    ChangeMenuItem(Prev_PenP$,UNCHECK,temp)
  682.    ChangeMenuItem(Curr_PenP$,CHECK,temp)
  683.     Prev_PenP$=Curr_PenP$
  684.    Return
  685.  
  686. Font_Color:
  687.    ChangeMenuItem(Prev_FontC$,UNCHECK,temp)
  688.    ChangeMenuItem(Curr_FontC$,CHECK,temp)
  689.     Prev_FontC$=Curr_FontC$
  690.    Return
  691.  
  692. Font_Type:
  693.    ChangeMenuItem(Prev_Font$,UNCHECK,temp)
  694.    ChangeMenuItem(Curr_Font$,CHECK,temp)
  695.     Prev_Font$=Curr_Font$
  696.    Return
  697.  
  698. Back_Color:
  699.    ChangeMenuItem(Prev_BackC$,UNCHECK,temp)
  700.    ChangeMenuItem(Curr_BackC$,CHECK,temp)
  701.     Prev_BackC$=Curr_BackC$
  702.    Return
  703.  
  704. Bye:
  705.    End
  706.  
  707.